﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class SaiinictemFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As SaiinictemBE
        Dim tmpSaiinictem As SaiinictemBE = New SaiinictemBE()
        Try
            With tmpSaiinictem
                .Clave = convertDTFromDb.convertInt32(dr.Item("Clave"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .Rfc = convertDTFromDb.ConvertString(dr.Item("Rfc"))
                .Saldo = convertDTFromDb.ConvertDecimal(dr.Item("Saldo"))
                .SaldoAct = convertDTFromDb.ConvertDecimal(dr.Item("SaldoAct"))
            End With
            Return tmpSaiinictem
        Catch ex As Exception
            Throw
        Finally
            tmpSaiinictem = Nothing
        End Try
    End Function
End Class
